home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / mdexp12.zip / UNIT2.PAS < prev   
Pascal/Delphi Source File  |  1996-01-10  |  1KB  |  50 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DBTables, DB, Grids, Outline, Mdexplor, ExtCtrls, Connect,
  8.   StdCtrls;
  9.  
  10. type
  11.   TDemoForm1 = class(TForm)
  12.     Table1: TTable;
  13.     DataSource1: TDataSource;
  14.     Table2: TTable;
  15.     DataSource2: TDataSource;
  16.     Connections1: TConnections;
  17.     MDExplorer1: TMDExplorer;
  18.     Table1DEPT_NO: TStringField;
  19.     Table1DEPARTMENT: TStringField;
  20.     Table2EMP_NO: TSmallintField;
  21.     Table2FULL_NAME: TStringField;
  22.     Table2DEPT_NO: TStringField;
  23.     Panel1: TPanel;
  24.     Label1: TLabel;
  25.     Table3: TTable;
  26.     DataSource3: TDataSource;
  27.     Table3EMP_NO: TSmallintField;
  28.     Table3CHANGE_DATE: TDateTimeField;
  29.     Table3NEW_SALARY: TFloatField;
  30.     procedure FormCreate(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   DemoForm1: TDemoForm1;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TDemoForm1.FormCreate(Sender: TObject);
  45. begin
  46. MDExplorer1.Active := True;
  47. end;
  48.  
  49. end.
  50.